home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5830.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  48 lines

  1. 5 GOTO10010
  2. 10 DATA,x+C,10,20
  3. 20 DATAxü,xüšÇ/(n+1)+C           (n+1÷0),10,30
  4. 30 DATA1/x,logïxï+C,20,40
  5. 40 DATA1/(xña),logïxñaï+C,30,50
  6. 50 DATAeÂ,eÂ+C,40,60
  7. 60 DATAeüÂ,eüÂ/n+C,50,70
  8. 70 DATAaÂ,"aÂ/loga+C            (a>0,a÷1)",60,80
  9. 80 DATAaüÂ,"aüÂ/(n¥loga)+C       (a>0,a÷1)",70,90
  10. 90 DATAlogx,x(logx-1)+C,80,100
  11. 100 DATAxeüÂ,eüÂ/ný¥(nx-1)+C,90,110
  12. 110 DATAsinx,-cosx+C,100,120
  13. 120 DATAsinax,-1/a¥cosax+C,110,130
  14. 130 DATAcosx,sinx+C,120,140
  15. 140 DATAcosax,1/a¥sinax+C,130,150
  16. 150 DATAtanx,-logïcosxï+C,140,160
  17. 160 DATAcotx,logïsinxï+C,150,170
  18. 170 DATAsinýx,x/2-sin2x/4+C,160,180
  19. 180 DATAcosýx,x/2+sin2x/4+C,170,190
  20. 190 DATAsecýax,1/a¥tanax+C,180,200
  21. 200 DATAcosecýax,-1/a¥cotax+C,190,210
  22. 210 DATA1/sinx,log(tan(x/2))+C,200,220
  23. 220 DATA1/cosx,log(tan((ã/4)+(x/2)))+C,210,230
  24. 230 DATAeüÂsinbx,eüÂ(n¥sinbx-b¥cosbx)/(ný+bý)+C,220,240
  25. 240 DATAeüÂcosbx,eüÂ(n¥cosbx+b¥sinbx)/(ný+bý)+C,230,250
  26. 250 DATAsinžx,xsinžx+û(1-xý)+C,240,260
  27. 260 DATAcosžx,xcosžx-û(1-xý)+C,250,270
  28. 270 DATAsinhx,coshx+C,260,280
  29. 280 DATAcoshx,sinhx+C,270,290
  30. 290 DATAtanhx,log(coshx)+C,280,300
  31. 300 DATA1/û(aý-xý),sinž(x/a)+C            (ïxï<a),290,310
  32. 310 DATA1/(aý+xý),1/a¥tanž(x/a)+C,300,320
  33. 320 DATA1/û(xýñaý),log(x+û(xýñaý))+C,310,330
  34. 330 DATAû(aý-xý),1/2¥(xû(aý-xý)+aýsinž(x/a))+C,320,340
  35. 340 DATA1/(xý-aý),1/2a¥log((x-a)/(x+a))+C  (x>a),330,340
  36. 10010 MODE8:DIM:x=10:y=340:r=x
  37. 10020 DEFCHR$(255)="0000FF0000"
  38. 10110 RESTORE(r)
  39. 10120 READm$,n$,b,c:IFm$="" THENm$=CHR$(8)
  40. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  41. 10140 CLS:PRINTCHR$(129);" ";m$;" dx";TAB(l);l$;"=";n$;
  42. 10150 z=ASC(INPUT$(1,@))
  43. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  44. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  45. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  46. 10200 IF(z=31ORz=13)ANDr<>c THENr=c:GOTO10110
  47. 10280 GOTO10150
  48.